|##########|
|#MAGIC   #|BOPDMOCD
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x---xxx-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x----x----------
|##########|
DEFINITION MODULE GBRadio;

FROM System IMPORT LONGSET,Regs;
IMPORT EGSIntui  AS I;
IMPORT EGSGadBox  AS GB;
FROM Exec IMPORT LibraryPtr;

CONST
  SuperRadType   = CAST(LONGINT,"SRAD".data);
  NoneSelected   = -1;

TYPE
  RadioGadPtr= POINTER TO RadioGadget;
  RadioGadget= RECORD OF I.MasterGadget
                 selected : INTEGER;
                 selGad   : I.BoolGadPtr;
               END;

VAR GBRadioBase : LibraryPtr;

LIBRARY GBRadioBase BY - 30 PROCEDURE CreateRadioGadget(con    IN A0 : GB.GadContext;
                                                        names  IN A1 : GB.StrArrayPtr;
                                                        height IN D0 : INTEGER;
                                                        id     IN D1 : LONGINT):GB.GadBoxPtr;

LIBRARY GBRadioBase BY -36 PROCEDURE ModifyRadioGadget(win IN A0 : I.WindowPtr;
                                                       gad IN A1 : RadioGadPtr;
                                                       sel IN D0 : INTEGER);

LIBRARY GBRadioBase BY -42 PROCEDURE OnRadioElems(win   IN A0 : I.WindowPtr;
                                                  gad   IN A1 : RadioGadPtr;
                                                  elems IN D0 : LONGSET);

LIBRARY GBRadioBase BY -48 PROCEDURE OffRadioElems(win   IN A0 : I.WindowPtr;
                                                   gad   IN A1 : RadioGadPtr;
                                                   elems IN D0 : LONGSET);

END GBRadio.


